home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 76e.bas < prev    next >
BASIC Source File  |  1995-01-07  |  7KB  |  148 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS 1 : COLOR 5 : PRINT "ETERNAL ETHER  [ Lambda mix ]"
  4. 40 PRINT "written TAKAO KUSHIDA"
  5. 50 S$="%CQ8T100" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  6. 60 '
  7. 70 '
  8. 80 '
  9. 90 AL$="@71V10O4L16Q8%C" : AR$=AL$+"[%R5" : AC$=AL$+"V3%L5"
  10. 100 A1L$=AL$+"   A2&A4AGE8  D8 E4 C4 CRCD EG"
  11. 110 A1R$=AR$+"   E2&E4EDC8 <B8>C4<G4 GRGB>CE"
  12. 120 A1C$=AC$+"C5 A2&A4AGE8  D8 E4 C4 CRC90  "
  13. 130 A1E$=AL$+"   A1 @71Q8<EGAB>D2E4 "
  14. 140 A1F$=AR$+"   E1 @71Q8<CDEG A2B4 "
  15. 150 A1G$=AC$+"C5 A1 @71Q8<EGAB>D2E90"
  16. 160 A1H$=AL$+"   A2&A8>C8D8 E8<GEG2 <A8>C8D8"
  17. 170 A1I$=AR$+"   E2&E8 A8B8>C8<DCD2 <E8 G8B8"
  18. 180 A1J$=AC$+"C5 A2&A8>C8D8 E8<GEG2 <A8>C90 "
  19. 190 A2L$=AL$+"   F#32G32&G&G8&G2FE D8 &D2&D8 C8D8 E8 "
  20. 200 A2R$=AR$+"   D#32E32&E&E8&E2DC<B8 &B2&B8 A8B8>C8 "
  21. 210 A2C$=AC$+"C5 F#32G32&G&G8&G2FE D8 &D2&D8 C8D90   "
  22. 220 A2E$=AL$+"  <G4&G8A4&A8>C4 D2&D4 E8F8"
  23. 230 A2F$=AR$+"  <E4&E8F4&F8 A4 B2&B4>C8D8"
  24. 240 A2G$=AC$+"<C5G4&G8A4&A8>C4 D2&D4 E90 "
  25. 250 A2H$=AL$+"    E1 D4&D8   E4&E8F4 "
  26. 260 A2I$=AR$+"    C1<A#4&A#8>C4&C8D4 "
  27. 270 A2J$=AC$+"<A5>E1 D4&D8   E4&E8F90" 
  28. 280 A2K$=AL$+"    C1&C2 F2    "
  29. 290 A2M$=AR$+"   <A1&A2>D2    "
  30. 300 A2N$=AC$+"<F5>C1&C2 F4&F90"
  31. 310 A3L$=AL$+"     GAG8>D2<E4 E32F32&FE8 D8<A4>D8  E8F8"
  32. 320 A3R$=AR$+"     DED8 A#2C4 C32D32&DC8<A8 D4 A#8>C8D8"
  33. 330 A3C$=AC$+"<A#5>GAG8>D2<E4 E32F32&FE8D8<A4>D8   E90 "
  34. 340 A3E$=AL$+"     GAG8>D4&D8   F8E8 C8 <A8&AG8GG#32A32&A&A8 D4D8"
  35. 350 A3F$=AR$+"     DED8 A#4&A#8>D8C8<G8  F8&FE8ED#32F32&F&F8<A4A8"
  36. 360 A3G$=AC$+"<A#5>GAG8>D4&D8   F8E8 C8 <A8&AG8GG#32A32&A&A8 D90 "
  37. 370 A3H$=AL$+"     GAG8>D4&D8   F8E8 C8 D8<A8>C8<G4A8F8G8"
  38. 380 A3I$=AR$+"     DED8 A#4&A#8>D8C8<G8 A8 E8 G8 D4E8C8D8"
  39. 390 A3J$=AC$+"<A#5>GAG8>D4&D8   F8E8 C8 D8<A8>C8<G4A8F90 "
  40. 400 A3K$=AL$+"     A4F8G4 &G8&G4 &G2 F8&FE8&E C8"
  41. 410 A3M$=AR$+"     F4C8D4 &D8&D4 &D2 D8&DC8&C<G8"
  42. 420 A3N$=AC$+" D5  A4F8G4 &G8&G4 &G2 F8&FE90    "
  43. 430 A4L$=AL$+"    <A1&A4>C4F4    "
  44. 440 A4R$=AR$+"    <E1&E4 G4D4    "
  45. 450 A4C$=AC$+"<C5  A1&A4>C4F90"
  46. 460 A4E$=AL$+"     E4&E8G4&G8F8E8 &E4&E8 <B>C<RBG8A32B32&B>D8"
  47. 470 A4F$=AR$+"     C4&C8E4&E8D8C8 &C4&C8 <G A RGD8E32G32&G B8"
  48. 480 A4G$=AC$+"<G5> E4&E8G4&G8F8E8 &E4&E8 <B>C<RBG8A32B90     "
  49. 490 A4H$=AL$+"     C2&C8 G8&GF8&F E4&E8F2&F8"
  50. 500 A4I$=AR$+"   < A2&A8>E8&ED8&D C4&C8D2&D8"
  51. 510 A4J$=AC$+"<F5> C2&C8 G8&GF8&F E4&E8F4&F8"
  52. 520 A4K$=AL$+"     G8&G C8&C<B8&B4>C8 <A2B2"
  53. 530 A4M$=AR$+"     E8&E<A8&A G8&G4 A8  F2G2"
  54. 540 A4N$=AC$+" C5  G8&G C8&C<B8&B4>C8 <A2B4"
  55. 550 A5L$=AL$+"[[     C2&C4 GRRR F8&FE8&EDR C8&C<B8&B>E8"
  56. 560 A5R$=AC$+"[[<A5> C2&C4 GRRR F8&FE8&EDR C8&C<B90    "
  57. 570 A5E$=AL$+"[[[<    A4>>CRRR<BRRA#RRAR G#2 E8&EG#RR<B8"
  58. 580 A5F$=AC$+"[[[<E5  A4>>CRRR<BRRA#RRAR G#2 E8&EG#     "
  59. 590 A5G$=AL$+"[[[[     C1&C1"
  60. 600 A5H$=AC$+"[[[[<A5 >C1&C2"
  61. 610 '
  62. 620 C1L$="@118V5O2L16%R9   A<C>AE4C8A8EC8EG A<C>AE4C8A8E@21>G#  "
  63. 630 C1R$="@118V1O2L16%L9R5 A<C>AE4C8A8EC8EG A<C>AE4C8A8E@21>G#90"
  64. 640 C1E$="@118V5O2L16%R9  A<C>AE4C8A8EC8>@21A<@118G A<C>AE4C8A8E<EC8&C"
  65. 650 C1F$="@118V1O2L16%L9R5A<C>AE4C8A8EC8>@21A<@118G A<C>AE4C8A8E<E90  "
  66. 660 C2L$="@21V7O3L16%L5   RRARRERRGA8&AAGE8  DRG#4E4D8E8G8 "
  67. 670 C2R$="@21V3O3L16%R5R8 RRARRERRGA8&AAGE8  DRG#4E4D8E90  "
  68. 680 C2E$="@21V7O3L16%L5   <A4>A8&A>A&A8<D#8E8G#8 @46[[G#4&G#8A4&A8B4 "
  69. 690 C2F$="@21V3O3L16%R5R8 <A4>A8&A>A&A8<D#8E8G#8 @46[[G#4&G#8A4&A8B90"
  70. 700 C2G$="@21V7O3L16%L5   E4&E8>E4<E8D8E8 C2&C4G4 "
  71. 710 C2H$="@21V3O3L16%R5R8 E4&E8>E4<E8D8E8 C2&C4G90 "
  72. 720 C2I$="@21V7O3L16%L5   E2&E8D#8E8G8 G#2&G#4B4"
  73. 730 C2J$="@21V3O3L16%R5R8 E2&E8D#8E8G8 G#2&G#4B90"
  74. 740 C3L$="@21V7O3L16%C    ABAGA4&A8<G8A8>C8 D4CRD4 E8 D8C8"
  75. 750 C3R$="@21V6O3L16%R5   EGEDE4&E8<D8E8 G8 A4GRA4>C8<A8G8"
  76. 760 C3C$="@21V3O3L16%L5R8 ABAGA4&A8<G8A8>C8 D4CRD4 E8 D8  "
  77. 770 C3E$="@21V6O3L16%C    E4&E8 V3 GRRRAR>V2CRDRER"
  78. 780 C3F$="@21V5O3L16%R5   C1                    "
  79. 790 C3G$="@21V1O3L16%L5R5 E4&E8 V1 GRRRAR"
  80. 800 B1L$="@11V7O2L16   F4>C8&C<BRRF8>C8<B8 E4>E8&ED8&DC8<B8>D8"
  81. 810 B1R$="@11V2O2L16R5 F4>C8&C<BRRF8>C8<B8 E4>E8&ED8&DC8<B90  "
  82. 820 B1E$="@11V7O2L16   EA4RARR>CRRDRCR  EFG8&G4&G8 FEFED8"
  83. 830 B1F$="@11V2O2L16R5 EA4RARR>CRRDRCR  EFG8&G4&G8 FEF90 "
  84. 840 B1G$="@11V7O2L16   ((Q1FQ8F8 Q1>A<Q8F8 [) )Q1FQ8F8&F V7F#8A8"
  85. 850 B1H$="@11V2O2L16R8 ((Q1FQ8F8 Q1>A<Q8F8 [) )Q1FQ8F8&F V2F#8  "
  86. 860 B2L$="@11V7O2L16   <G8&GG>G4&GG<G8>F8EC <D8&DD>D4&D<D8>D E8F8"
  87. 870 B2R$="@11V2O2L16R8 <G8&GG>G4&GG<G8>F8EC <D8&DD>D4&D<D8>D E8  "
  88. 880 B2E$="@11V7O2L16   <G8&GG>G4&GG<G8>F8EC  D8&DAD8 CRRC8<CG>C<GA> "
  89. 890 B2F$="@11V2O2L16R8 <G8&GG>G4&GG<G8>F8EC  D8&DAD8 CRRC8<CG>C     "
  90. 900 B2G$="@11V7O2L16   <A#8&A#A# RG#A#8 &A#2 @11  A4RARA>C<C8&C>D4"
  91. 910 B2H$="@11V2O2L16R8 <A#8&A#A# RG#A#8 &A#2 @41> A4RARA>C<C8&C>D8"
  92. 920 B3L$="@11V7O2L16   <FRRF>CRR<DRRRR>Q2DED<Q8E GRRG>DRR<GRRGR>C8<B8"
  93. 930 B3R$="@11V2O2L16R8 <FRRF>CRR<DRRRR>Q2DED<Q8E GRRG>DRR<GRRGR>C8<"
  94. 940 B4L$="@11V7O2L16   <ARRA ERRB >CRRR RCGC D8&D<A8&A>D8< ERRG8&GG#8"
  95. 950 B4R$="@11V2O2L16R8 <ARRA ERRB >CRRR RCGC D8&D<A8&A>D8< ERRG8&G   "
  96. 960 B4E$="@11V7O2L16   <FRRFRRRR RRR<F>F8C8  ERRERRERRERRE8G8"
  97. 970 B4F$="@11V2O2L16R8 <FRRFRRRR RRR<F>F8C8  ERRERRERRERRE90"
  98. 980 B5L$="@11V6O2L16   <F1>C4CR<E4ERG4 "
  99. 990 B5R$="@11V2O2L16R8 <F1>C4CR<E4ERG90"
  100. 1000 B5E$="@11V5O2L16    F1"
  101. 1010 B5F$="@11V1O2L16R8  F1"
  102. 1020 '
  103. 1030 P1$= "@7 V15O1L16 ERRRERRRRRERRRER      ERRRERRRRRERERRR"
  104. 1040 S1$= "@7 V15O1L16 ERRRERRRRRERRRER      ERRRRRRRRR<%R5ERR%L5E@1V5G"
  105. 1050 SS1$="@7 V15O1L16 ERRRRRRRRRRRRRRR V5   RRRRRRRRRR<%R5GR%L5GR%CRR"
  106. 1060 P2$= "@8 V3 O2L16 RGRRGRRRRGRRGRRG      RGRRGRR>G<RGRRGRV1GG"
  107. 1070 P3$= "@6 V8 O8L16 (RR@6C@9FRR@6C@9C@6C@9CRR@6C@9FRF) "
  108. 1080 S3$= "@6 V8 O8L16  RR@6C@9FRR@6C@9C@6C@9CRR@6C@9FRF  "
  109. 1090 P4$= "   V8 O4L16 (@4GRGR@7G@4<<C>>GR)3 @4GRGR@7G@9>>V3A32F32F<<@7G"
  110. 1100 S4$= "   V8 O4L16 (@4GRGR@7G@4<<C>>GR)  @4G"
  111. 1110 P5$= "@11V4 O0L16 G2&G4&G8 %R9G%L9R %C  G1"
  112. 1120 P6$= "@1 V3 O0L16 GRRRGRRRGRRRGRRR      GRRRGRRRGRRRGRRR"
  113. 1130 S6$= "@1 V2 O0L16 G"
  114. 1140 '
  115. 1150 'PLAY B4L$,B4R$,A5L$,A5R$,C1L$,C1R$,,,P6$,P2$ :  END
  116. 1160 'PLAY B5E$,B5F$,C3L$,C3R$,C3C$,,,P6$,P5$ :  END
  117. 1170 'PLAY ,,,,,,,,,P6$,P4$,P3$ :  END
  118. 1180 'GOTO 1410
  119. 1190 '
  120. 1200 '
  121. 1210 PLAY B1L$,B1R$,A1L$,A1R$,A1C$
  122. 1220 PLAY B1L$,B1R$,A1E$,A1F$,A1G$
  123. 1230 PLAY B1L$,B1R$,A1H$,A1I$,A1J$
  124. 1240 PLAY B1L$,B1R$,A1E$,A1F$,A1G$
  125. 1250 PLAY B1L$,B1R$,A2L$,A2R$,A2C$,,P4$
  126. 1260 PLAY B1L$,B1R$,A2E$,A2F$,A2G$,,P3$,P4$
  127. 1270 PLAY B1E$,B1F$,A2H$,A2I$,A2J$,,P1$,P3$,P4$
  128. 1280 PLAY B1G$,B1H$,A2K$,A2M$,A2N$,,S1$,S3$,S4$
  129. 1290 PLAY B2L$,B2R$,A3L$,A3R$,A3C$,,P1$ ,P2$,P3$,P4$,P5$
  130. 1300 PLAY B2L$,B2R$,A3E$,A3F$,A3G$,,P1$ ,P2$,P3$,P4$
  131. 1310 PLAY B2L$,B2R$,A3L$,A3R$,A3C$,,P1$ ,P2$,P3$,P4$,P5$
  132. 1320 PLAY B2E$,B2F$,A3H$,A3I$,A3J$,,P1$ ,P2$,P3$,P4$
  133. 1330 PLAY B2G$,B2H$,A3K$,A3M$,A3N$,,SS1$
  134. 1340 PLAY B3L$,B3R$,A4L$,A4R$,A4C$,,P1$,P2$,P3$,P4$
  135. 1350 PLAY B3L$,B3R$,A4E$,A4F$,A4G$,,P1$,P2$,P3$,P4$
  136. 1360 PLAY B3L$,B3R$,A4H$,A4I$,A4J$,,P1$,P2$,P3$,P4$
  137. 1370 PLAY B3L$,B3R$,A4K$,A4M$,A4N$,,S1$,P2$,P3$,P4$
  138. 1380 PLAY B4L$,B4R$,A5L$,A5R$,C1L$,C1R$,P5$
  139. 1390 PLAY B4L$,B4R$,A5E$,A5F$,C1E$,C1F$,P5$
  140. 1400 PLAY B4L$,B4R$,A5G$,A5H$,C1L$,C1R$,P5$
  141. 1410 PLAY B4L$,B4R$,    ,    ,C1E$,C1F$,P5$
  142. 1420 PLAY B4E$,B4F$,C2L$,C2R$,C1L$,C1R$,P6$
  143. 1430 PLAY B4E$,B4F$,C2E$,C2F$,C1E$,C1F$,P6$
  144. 1440 PLAY B4E$,B4F$,C2G$,C2H$,C1E$,C1F$,P6$
  145. 1450 PLAY B4E$,B4F$,C2I$,C2J$,C1E$,C1F$,P6$
  146. 1460 PLAY B5L$,B5R$,C3L$,C3R$,C3C$,C1R$,S6$
  147. 1470 PLAY B5E$,B5F$,C3E$,C3F$,C3G$,C1R$
  148.